home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 124 / Tiger_Disk_124_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 1.demo v2+ (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  122 lines
  1. 0 rem **** basic v2+ demo 1 ****
  2. 1 rem **  by mark marzinzik   **
  3. 2 rem **************************
  4. 3 dim xm(200),ym(200)
  5. 4 def fn x(x)=(x+1)/21*319
  6. 5 def fn y(y)=(10-y)/20*199
  7. 6 def fn y1(x)=11*exp(-.1*x)*sin(x)
  8. 9 rem ** netzgrafik
  9. 10 #colour,1,1,0
  10. 20 #hires,2
  11. 30 for x1=0 to 320 step 40
  12. 35 if x1=320 then x1=319
  13. 40 y1=(x1-160)^2/200
  14. 50 for x2=0 to 320 step 40:y2=199
  15. 55 if x2=320 then x2=319
  16. 60 #line,x1,y1,x2,y2
  17. 70 nextx2:nextx1
  18. 80 #text,0,0,"netz mit parabelfoermig angeordneten"
  19. 90 #text,1,0,"punkten   (mit den befehlen #colour/"
  20. 100 #text,2,0,"#hires/#line)":gosub105:goto120
  21. 105 #text,4,1,"<taste>"
  22. 110 #keypress:#hires,2:return
  23. 120 rem ** roehrengrafik
  24. 130 for t=1 to 10 step 0.2
  25. 140 x=int(170+100*cos(t/2))
  26. 150 y=int(70+80*sin(t/3))
  27. 160 #rec,x-20,y-20,x+20,y+20
  28. 170 next t
  29. 171 #text,0,0,"roehrengrafik mit dem befehl #rec"
  30. 180 gosub 105
  31. 190 rem ** blueten-grafik
  32. 210 for i=50 to 100 step 5
  33. 220 for j=0 to 6.4 step 0.1
  34. 230 w=i+60*cos(7*j)
  35. 240 x=160+w*cos(j):y=100+w*sin(j)/1.5
  36. 250 if x>319 or x<0 or y>199 or y<0 then 280
  37. 260 if j<>0 then:#line,x1,y1,x,y
  38. 270 x1=x:y1=y:nextj:nexti
  39. 280 #text,0,0,"bluete erzeugt mit #line"
  40. 290 gosub449
  41. 300 rem ** balkendiagramm
  42. 301 #colour,1,1,0:#hires,2
  43. 310 data"1966","8.8","1970","15.0","1974","20.8","1978","25.4","1982","27.2"
  44. 311 data"1983","28.6","1984","29.1"
  45. 320 i=0:for x1=20 to 260 step 40:i=i+1
  46. 330 read j$(i),w$(i)
  47. 340 y2=170:x2=x1+20:y1=y2-2*val(w$(i))
  48. 350 #rec,x1,y1,x2,y2
  49. 360 a=x1+9:b=y1-9:c=x2+9:d=y2-9
  50. 370 #line,x1,y1,a,b:#line,a,b,a+20,b:#line,a+20,b,x1+20,y1:#line,x2,y2,c,d
  51. 380 #line,c,d,a+20,b
  52. 390 next
  53. 392 data16,2,15,8,13,12,12,17,12,22,11,27,11,33
  54. 400 for i=1 to 7:readz,s
  55. 410 #text,z,s,w$(i)
  56. 415 #text,22,6*(i-1),j$(i)
  57. 420 next
  58. 430 #text,7,8,"s u b v e n t i o n e n"
  59. 440 #text,8,8," des bundes in mrd dm"
  60. 445 #text,0,0,"balkendiagramm mit #rec/#line/#text"
  61. 446 gosub105:goto500
  62. 449 rem ** unterprogramm farben aendern
  63. 450 #text,1,1,"*** mit tasten 1/2/3 koennen die farben":r=1:h=1:z=0
  64. 457 #text,2,1,"    geaendert werden ***"
  65. 458 #text,24,0,"tippe <4> um weiterzumachen"
  66. 460 getx$:ifx$=""then460
  67. 461 ifx$="1"thenr=r+1:ifr=16thenr=0
  68. 470 ifx$="2"thenh=h+1:ifh=16thenh=0
  69. 480 ifx$="3"thenz=z+1:ifz=16thenz=0
  70. 485 ifx$="4"thenreturn
  71. 490 #colour,r,h,z
  72. 491 goto460
  73. 500 rem ** kreisdiagramm
  74. 510 data"ostblock","32","japan","38","westeuropa","103","usa","155"
  75. 511 data"sonstige","32"
  76. 520 #circle,162,100,50:c=0
  77. 525 #circle,162,100,15
  78. 530 for i=1 to 5
  79. 540 readl$(i),z$(i)
  80. 550 b=(val(z$(i))/360)*2*(NULL)
  81. 560 c=c+b
  82. 570 x=162+50*cos(c):x1=162+15*cos(c)
  83. 580 y=100+50*sin(c):y1=100+15*sin(c)
  84. 590 #line,x1,y1,x,y
  85. 600 next
  86. 610 #text,12,19,"360"
  87. 620 data11,23,15,22,15,17,9,17,13,23
  88. 630 fori=1to5
  89. 640 readz,s:#text,z,s,z$(i)
  90. 650 nexti
  91. 655 data10,27,18,24,16,4,5,16,13,27
  92. 660 for i=1to5:readz,s:#text,z,s,l$(i):nexti
  93. 670 #text,22,4,"installierte universal-computer"
  94. 680 #text,23,13,"1982 in mrd dm"
  95. 685 #text,24,12,"(insgesamt 360)"
  96. 690 #text,0,0,"kreisdiagramm mit #circle/#line/#text"
  97. 700 gosub105
  98. 710 rem ** kurvendarstellung
  99. 736 c=fnx(0):d=fny(0)
  100. 740 #line,fnx(0),fny(10),fnx(0),fny(-10)
  101. 750 #line,fnx(0),fny(0),fnx(20),fny(0)
  102. 760 i=0:for x=0 to 20 step0.1:i=i+1
  103. 761 a=fnx(x):b=fny(fny1(x))
  104. 770 #plot,1,a,b
  105. 775 xm(i)=a:ym(i)=b
  106. 780 next
  107. 790 #line,fnx(0),fny(0),xm(1),ym(1)
  108. 800 forj=1toi-1
  109. 810 #line,xm(j),ym(j),xm(j+1),ym(j+1)
  110. 820 next
  111. 830 #text,0,1,"10":#text,0,7,"gedaempfte schwingung mit"
  112. 840 #text,1,7,"#plot/#line/#text"
  113. 850 #text,24,0,"-10":#text,12,0," 0":#text,13,38,"20":#text,18,26,"<taste>"
  114. 860 #keypress:#hires,0:#margin,14:#screen,6:#pen,1:printchr$(147)
  115. 861 #place,10,14
  116. 870 print"alles klar!":print
  117. 880 #pen,14:print"ich hoffe,sie haben gefallen gefunden an";
  118. 890 print"basic v2+ !  sie sehen, es bietet unbe-"
  119. 900 print"grenzte moeglichkeiten in der grafikpro-";
  120. 910 print"grammierung."
  121. 920 end
  122.